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SECTION  1 . INTRODUCTION 

1.1.  Purpose  of  the  Validation  Summary  Report 

The  purpose  of  the  Validation  Summary  Report  (VSR)  is  to  identify  individual 
COBOL  language  elements  whose  usage  does  not  conform  to  Federal  Standard  COBOL 
as  adopted  from  American  National  Standard  COBOL  (X3.2?-1968)  by  Federal 
Information  Processing  Standards  Publication  21  (FIPS  PUB  21). 

1.2.  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  COBOL  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  Federal  Standard  COBOL, 
their  related  data,  and  an  executive  routine  (VP-routine)  which  prepares  the 
audit  routines  for  compilation.  Each  audit  routine  is  a COBOL  program  which 
includes  tests  and  supporting  procedures  used  to  Indicate  the  results  of  the 
tests . 

The  testing  of  a compiler  in  a particular  hardware/operating  system  environment 
is  accomplished  by  compiling  and  executing  each  audit  routine.  The  report 
produced  by  each  routine  indicates  whether  the  compiler  passed  or  failed  the 
tests  contained  in  the  routine. 

If  the  compiler  rejects  some  language  elements  by  terminating  compilation, 
giving  fatal  diagnostic  messages,  or  terminatine  execution  abnormally,  then 
the  test  containing  the  code  the  compiler  was  unable  to  process  is  deleted  and 
the  audit  routine  compilation  and  execution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines  con- 
stitute the  raw  data  from  which  the  members  of  the  Federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Summary  Report. 

1.3.  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
which  are  described  below: 

a.  Section  2 summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System. 

Section  2 is  subdivided  into  Section  2.1,  syntax  not  accepted  by  the  compiler, 
and  Section  2.2,  semantic  differences  between  the  compiler  implementation  and 
the  language  specification.  All  errors  are  grouped  by  processing  module. 

b.  FIPS  PUB  21  defines  four  levels  of  Federal  Standard  COBOL. 

Section  3 of  the  VSR  lists  the  discrepancies  described  in  Section  2 by  the 
level  in  which  the  problem  occurs. 

c.  Section  4 contains  information  obtained  during  the  validation  process 
which,  While  not  impacting  the  status  of  the  compiler  with  respect  to  the 
defined  Federal  COBOL  levels,  may  be  of  interest  to  a user  of  the  compiler. 

d.  Section  5 contains  information  which  describes  the  software  environ- 
ment in  which  the  compiler  was  tested.,  This  includes  the  name  and  version 
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of  the  compiler;  the  name  and  version  of  the  operatint'  system;  the  imple- 
mentor-names which  were  used  in  the  Environment  Division  of  the  programs  com- 
prising the  CCVS;  the  options  used  with  the  compiler;  and  if  applicable, 
information  regarding  the  use  of  compiler  optimization  ' features. 

e.  Appendix  A is  the  Validation  Summary  Working  Document,  a working 
paper  resulting  from  the  compilation  and  execution  of  the  CCVS,  and  from  which 
the  VSR  is  derived. 

1.«l.  Compliance  to  FIPS  PUB  ?1 

Definition  of  an  Implementation  of  USA  Standard  COBOL 


(excerpts  from  American  National  Standard  COBOL  X3. 23-1968,  Chapter  1) 

Throughout  the  USA  Standard  COBOL  specifications,  there  are  certain  language 
elements  that  depend,  for  their  implementation,  on  particular  types  of  hard- 
ware components.  The  implementor  specifies  the  minimum  hardware  configuration  . 

f.  required  for  a given  implementation  of  USA  Standard  COBOL  and  the  hardware 

I components  that  it  supports.  Any  language  elements  that  depend  on  hardware 

I components  for  which  support  is  claimed  must  be  implemented.  Language  ele- 

I ments  that  are  not  implemented  because  of  their  dependence  on  hardware  com- 

ponents whose  support  is  not  claimed  for  an  implementation  must  be  so  specified 
and  their  absence  will  not  render  the  implementation  nonstandard.  | 

When  a facility  is  provided  that  accomplishes  the  function  specified  by  any  I 

particular  COBOL  element,  it  may  be  unnecessary  to  include  that  particular  | 

element  within  the  COBOL  source  program.  If  such  an  unnecessary  element  does  I 

appear  in  the  source  program,  it  must  be  accepted  by  the  compiler.  Hov^ever,  ] 

if  the  element  does  not  lead  to  the  production  of  object  code,  no  substitute  = 

statements  shall  be  required  within  the  COBOL  source  program  to  accomplish  this  J 

function.  t 

I 

By  the  same  token,  the  inclusion  of  language  elements  or  of  functions  that  are  ■ 

not  a part  of  the  USA  Standard  COBOL  specifications  will  not  render  an  imple- 
mentation of  USA  Standard  COBOL  nonstandard.  This  is  true  even  though  it  nay 
imply  the  extension  of  the  list  of  reserved  words  by  the  implementor,  and  pre- 
vent proper  compilation  of  some  programs  which  conform  to  the  Standard. 
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t.5.  Federal  Standard  COBOL  Levels 


The  Federal  Government  has  defined  four  nested  levels  of  Standard  COBOL 
X3.?3-1968.  All  compilers  acquired  by  a Federal  agency  must  contain  as  a 
minimum  one  of  the  four  Federal  levels,  depending  on  machine  size,  configura- 
tion and  user  needs. 


Low 

Level 

Low- 

Inter- 

mediate 

Level 

High- 

Inter- 

mediate 

Level 

High 

Level 

Nucleus 

1 

2 

2 

2 

FPM 

Table  Handling 

1 

2 

2 

3 

Sequential  Access.... 

1 

2 

2 

2 

Random  Access 

2 

2 

2 

Sort 

- 

• 

1 

2 

Segmentation 

- 

1 

1 

2 

Library 

■ 

1 

1 

2 

1.6.  Use  of  the  VSR 

The  Federal  COBOL  Compiler  Testing  Service  may  make  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  (VSR)  in  accordance  with  the 
"Freedom  of  Information  Act"  (5  U.S.C.  #552).  The  results  of  the  valida- 
tion are  only  for  the  purpose  of  satisfying  United  States  Government 
requirements,  and  apoly  only  to  the  computer  system,  operating  system 
release,  and  compiler  version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  determine,  insofar  as  is 
practical,  the  degree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus,  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  statements, 
or  any  one  of  them,  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
is  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summar- 
ized therein. 

1.7.  Sources  of  Additional  Information 

FIPS  PUB  21  defines  the  Federal  COBOL  Language  Standard.  This  publication 
la  available  from  the  Superintendent  of  Documents,  U.S.  Government  Printing 
Office,  Washington,  D.C.  20^102. 

The  detailed  COBOL  language  specifications  are  given  in  the  publication 
"USA  Standard  COBOL,  X3. 23-1968",  available  from  American  National  Standards 
Institute,  1430  Broadway,  New  York,  New  York  10018. 

An  explanation  of  the  COBOL  Compiler  Validation  System  is  contained  in  the 
CCVf  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
system.  The  User's  Guide  and  a magnetic  tape  source  image  copy  of  the  CCVS 
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programs  are  available  from  the  National  Technical  Information  Service, 
Springfield,  Virginia,  22151.  Specify  AD772600  for  the  Users  Guide  and 
AD772601  for  the  CCVS  tape. 

I 

I 

1.8.  Requests  for  Interpretation 

Questions  regarding  this  VSR  or  the  CCVS  should  be  forwarded  to  the  FCCTS. 

If  any  problem  cannot  be  adequately  resolved  through  the  FCCTS,  the  request 
for  interpretation  will  be  forv/arded  to  the  Federal  COBOL  Interpretation 
Committee  for  final  resolution. 

A brochure  describing  the  Validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involving  interpretation 
of  the  current  Federal  Standard  is  available  from  the  Department  of  the  Navy, 
Federal  COBOL  Compiler  Testing  Service,  Washington,  D.C.  20376. 

1.9.  Federal  Standard  COBOL  Approved  Interpretation 

The  National  Bureau  of  Standards  published  in  the  Federal  Register  Vol.  ill 
No.  179,  September  Hi,  1976,  an  approved  interpretation  of  Federal  Standard 
COBOL  as  pertains  to  the  evaluation  of  arithmetic  expressions  in  the  COMPUTE 
statements.  This  interpretation  states  that  "size  of  the  intermediate  result 
field  is  implementor-defined." 

Since  the  results  of  evaluating  arithmetic  expressions  are  not  predictable,  all 
COMPUTE  statements  and  IF  statements  containing  arithmetic  expressions  have 
been  removed  from  the  COBOL  Compiler  Validation  System. 

1.10  Timeliness  of  the  Validation  Summary  Reports 

The  timeliness  of  the  Validation  Summary  Report  is  important.  Compilers 
and  their  related  operating  system  software  are  modified  several  times  a year. 
The  Compiler  Validation  System  used  to  validate  compilers  is  also  updated 
during  the  life  of  the  system.  Therefore  to  ensure  that  the  latest  version 
of  both  the  vendor's  compiler  and  the  Validation  System  are  the  latest  offici- 
ally released  versions,  check  with  the: 

Director 

Federal  COBOL  Compiler  Testing  Service 
, Department  of  the  Navy 

Washington,  D.  C.  20376 
(202)  697-12JI7 
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{Please  use  the  Validation  Summary  Report  number  of  this  report  when 
corresponding  with  the  Testing  Service. 


SECTION  2.  DETAILED  EVALUATION  OF  ERRORS 

\ 

This  section  summarizes  the  results  of  the  compilation  and  execution  of  the 
programs  comprising  the  COBOL  Compiler  Validation  System.  The  section  is 
subdivided  into  two  sections:  Section  2.1.  lists  the  language  syntax  not 
accepted  by  the  compiler;  Section  2.2.  explains  the  semantic  differences 
between  the  compiler  implementation  and  the  language  specification.  All 
errors  within  each  section  are  grouped  by  processing  module. 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identified  by  a 5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  ANS  COBOL  tested  v/ithin  the  program. 

The  five  character  name  has  the  general  format  XXNMM.  The  first  two  char- 
acters are  alphabetic  and  identify  the  functional  module  tested  by  the 
program.  The  permissable  values  are: 

LB  - Library 
NC  - Nucleus 
RC  - Random  Access 
SG  - Segmentation 
SO  - Sequential 
ST  - Sort 

TH  - Table  Handling 

The  third  character  of  the  audit  routine  name  is  either  a 1,  2,  or  ?,  and 
identifies  the  level  of  the  functional  module  being  tested.  Each  module  and 
level  is  represented  by  several  programs.  The  fourth  and  fifth  characters 
of  the  program  name  are  secuence  numbers  for  programs  v/hich  test  features  in 
the  same  level  of  the  same  functional  processing  module. 

As  an  example,  the  program  name  NC210  is  the  tenth  program  in  the  series  of 
routines  which  test  the  second  level  of  the  Nucleus  module. 

Each  error  noted  in  this  section  makes  reference  to  a program  or  functional 
COBOL  module  in  the  Validation  Summary  V/orking  Document  (APPENDIX  A).  This 
reference  provides  the  documented  results  of  an  occurrence  of  errors  detected 
during  the  running  of  the  COBOL  Compiler  Validation  System  using  the  compiler 
being  validated.  The  Validation  Summary  Working  Document  is  presented  in 
sequence  by  functional  module,  functional  module  level  and  program  number  as 
6efined  above. 


2.1 


Syntactic  Errors 


2.1.1  Library  Module. 

2. 1.1.1  The  compiler  rejected  identifiers  containing  either 
qualifiers  or  subscripts  in  the  REPLACING  phrase  of 
a COPY  statement. 

See  LB202. 

2.1.2  Nucleus  Module. 

2. 1.2.1  The  compiler  rejected  a DISPLAY  statement  containing 
twenty-one  data-names  as  operands. 

See  NC109. 

2.1.3  Random  Access  Module. 

2. 1.3.1  The’ compiler  required  that  a LABEL  RECORD  OMITTED  clause 
be  changed  to  LABEL  RECORD  STANDARD  in  a file  description 
entry  for  a file  whose  access  mode  is  random. 

See  RC102. 

2. 1.3.2  The  compiler  rejected  a LABEL  RECORD  data-name  clause  in  a 
file  description  entry  for  a file  whose  access  mode  v;as 
random.  This  compiler  does  not  support  user  defined  labels 
for  the  random  access  module. 

See  RC203. 

2.1.4  Table  Handling  Module. 

2. 1.4.1  The  compiler  rejected  an  index-data-item  (USAGE  INDEX) 

as  the  subject  of  a VARYING  phrase  of  a SEARCH  statement 
fr  for  an  indexed  table. 

* See  TH309. 
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2.2 


Semantjc  Errors 


2.2.1  Nucleus  Module. 

2.2. 1.1  The  system  truncates  strings  of  characters  DISPLAYed  on  the 
system  console  to  6*1  characters  instead  of  providing 
additional  lines  as  necessary  to  exhibit  all  of  the  data* 
transferred  in  a DISPLAY  statement. 

See  NC20*1. 

2.2.2  Random  Access  Module. 

This  module  was  not  executed.  The  semantic  errors  described  below 
were  found  in  testing  Version  2.01  of  the  OS/2000  ANS  COBOL  compiler. 
References  are  to  validation  summary  report  number  73-C011. 

2.2.2. 1 The  system  does  not  support  the  concept  of  user  defined  labels 
(LABEL  RECORD  is  data-nane)  on  mass-storage  files. 

See  73-C011  RC203. 

2.2.3  Sequential  Access  Module. 

2.2.3. 1 For  a mass-storage  sequential  file  which  had  been  OPEHed 
for  I-O,  the  ending  declaratives  were  executed  when  the 
file  was  CLOSEd , even  though  the  end  of  the  file  had  not 
been  reached . 

See  SQ209. 

2. 2. 3. 2 For  a sequential  tape  file  which  had  been  OPENed  for  INPUT, 
the  ending  file  declaratives  were  executed  when  the  end 

of  the  file  was  reached,  but  without  a CLOSE  command 
having  been  issued. 

See  S0211. 

2.2. 3. 3 For  the  READ/RETURN  with  the  INTO  phrase,  the  move  from  the 
record  area  into  the  identifier  was  always  treated  as  a 
group  move  regardless  of  the  data  items  involved. 

See  S021I4/ST207. 

2.2.3.*1  The  system  reserves  the  first  five  characters  of  user-defined 
file  labels  for  its  own  use. 

See  S0215. 
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SECTION  3.  COMPILER  STATUS 

Section  1.5  explains  the  four  levels  of  Federal  Standard  COBOL.  This  section 
lists  the  discrepancies  described  in  Section  2 by  the  Federal  Level  in  which 
the  problem  occurs.  All  errors  listed  for  a lower  level  are  also  errors  in 
any  higher  level,  even  though  they  are  listed  only  in  the  lower  level.  The 
paragraph  number  from  Section  2 is  used  to  reference  the  errors  in  eadh 
Federal  level. 

3.1.  Low  Level 


2. 1.2.1  DISPLAY  statements  with  21  operands  was  rejected. 

3.2.  Low-Intermediate  Level 


2. 1.3.1  LABEL  RECORDS  STANDARD  are  reouired  for  random  access  files. 
(See  also  2.2.2. 1 ) 

2. 1.3.2  The  LAPEL  RECORD  data-name  clause  is  not  permitted  for  mass- 
storage  files. 

2.2. 1.1  DISPLAY  has  a maximum  of  characters  on  the  system  console. 

2.2.3. 1 ‘There  is  a problem  with  the  Ending  USE  procedures  for 

sequential  mass-storage  files. 

2.2. 3.2  There  is  a problem  with  the  Ending  USE  procedures  for 
sequential  tape  files. 

2. 2. 3. 3 READ  INTO  functions  like  a group  MOVE. 

2.2.3.^  User  labels  on  tape  are  modified  by  the  system. 


3.3.  High-Intermediate 


None 


3.‘1.  High  Level 

2. 1.1.1  Identifiers  with  subscripts  and  qualifiers  are  not  replaced  by 
the  COPY  statement. 

2. 1.^1. 1 Indexed  data  items  are  not  permitted  in  the  SEARCH  statement. 

2.2.4. 1 RETURN  INTO  functions  like  a group  MOVE. 
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SECTION  i».  INFOEMATION  ITEMS 


Section  ^<.1  covers  the  cases  where  the  results  of  a i^lven  statement  are  not 
defined  in  the  language  specifications. 

Section  It. 2.  gives  other  information  about  the  compiler  v;hich  was  discovered 
during  validation.  Included  in  this  section  are  items  v/hich  are  hardware 
dependent,  and  situations  where  implementor  defined  variations  are  permitted. 

Section  It. 3.  gives  information  on  hardware  dependent  features  that  are  not 
supported  by  the  subject  COBOL  Compiler. 

Section  l4.*l  gives  information  concerning  the  use  of  facilities  outside  the 
COBOL  program  that  accomplish  functions  defined  in  COBOL  (see  1.*J  of  this  VSR). 

The  COBOL  language  specification  "American  National  Standard  COBOL  X3. 23-1968" 
as  defined  by  FIPS  Pub  21  is  used  as  the  reference  document. 

M.l.  Information  Tests 

M.1.1.  Nucleus  Module 

*<.1.1.1.  CLOSE  followed  by  an  OPEN  OUTPUT  of  a printer  destined  file  (LB  103): 

COPY-TEST-2  of  LB  103  closed  and  then  reopened  the  printer  file.  The  result  of 
closing  and  then  reopening  a unit  record  output  file  is  not  specifically 
addressed  in  the  language  specifications.  The  object  of  this  test  is  to  deter- 
mine whether  the  file  is  repositioned  to  its  beginning  and  all  previous  results 
overwritten,  or  whether  all  current  output  is  preserved  with  additional  output 
concatenated  to  it. 

The  results  for  this  compiler: 

All  printed  output  was  provided. 

*•.1.1.2.  IF... Signed  Numeric  item  equals  Alphanumeric  item  (NC103): 

IF-TEST-65  compares  two  elementary  items  with  the  first  item  having  PIC  S9(1P) 
VALUE  111111111111111111  and  the  second  item  having  a PIC  X(18)  VALUE 
"111111111111111111".  The  items  are  compared  by  the  form: 

IF  identifer-1  ECUAL  TO  identifier-2... 

The  results  for  this  compiler: 

The  two  elementary  items  did  compare  equal. 

*•.1.1.3.  IF. ..NUMERIC  Condition  tests  (NC103): 

CLASS-TEST- 17  and  CLASS-TEST-22  of  NC103  are  information  tests  where  data  items 
with  PICTURE  S9  contain  -1  and  ♦I  respectively.  Each  data  item  is  redefined 
as  an  alphanumeric  data  item  PICTURE  X.  The  redefined  data  item  is  then 
referenced  in  a NUMERIC  test  to  determine  whether  the  siftned  data  item  contains 
an  indicator  to  represent  the  sisn,  i.e.  an  overpunch.  If  both  data  items  are 
determined  to  be  numeric,  then  the  system  does  not  use  an  indicator  technique 
for  the  sign.  If  both  data  items  are  determined  to  be  not  numeric  then  the 
system  uses  an  indicator  method  for  both  positive  and  negative  numbers.  If  one 
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of  the  data  items  is  numeric  and  the  other  is  not,  then  the  system  uses  the 
indicator  method  for  one  case  but  not  the  other.  The  si^n  is  not  addressed 
by  the  COBOL  language  specifications  and  conseouently  is  left  to  the 
discretion  of  the  implementors  of  COBOL  compilers  as  to  its  representation. 

The  results  for  this  compiler; 

Negative  data  redefined  as  unsigned  data: 

The  data  item  tested  NOT  NUMERIC. 

Positive  data  redefined  as  unsigned  data: 

The  data  item  tested  NOT  NUMERIC. 

M.1.1.M  Move  signed  numeric  field  to  alphanumeric  field  (NC105): 

MOVE-TEST- and  MOVE-TEST- in  NC105  move  signed  numeric  fields  with 
PICTURE  59(5)  to  fields  with  PICTURE  X(5).  The  source  fields  had  contents 
of  +60666  and  -70717  for  MOVE-TESTS- 1i(8  and  1^19  respectively.  The  language 
specification  is  not  definitive  as  to  whether  the  absolute  value  is  to  be 
moved  (i.e.  the  sign  is  stripped)  or  whether  the  contents  are  moved  without 
regard  to  the  sign.  The  results  of  these  tests  should  be  considered  only  in 
light  of  the  results  of  the  information  test  in  4. 1.1.2. 

The  results  for  this  compiler; 

MOVE  +60666  TO  X{5) 

The  absolute  value  was  moved;  the  sign  was  stripped. 

MOVE  -70717  TO  X(5) 

The  absolute  value  was  moved;  the  sign  was  stripped. 

4. 1.1.5.  ADD  without  ON  SIZE  ERROR  (NC106): 

ADD-TEST- 17  in  NC106  checks  the  effect  of  a size  error  on  the  result  of  an 
ADD  statement  which  does  not  have  the  ON  SIZE  ERROR  phrase.  The  statement 
used  vras  adding  SV9(5),  S9(6)V9(6),  SV9(5)  GIVING  S9(‘5)  ROUNDED.  Identifier 
S9(6)V9(6)  contained  the  value  ?3??3? . • The  SVPC')  descriptions  were  the 
same  identifier  and  contained  the  value  .11111.  The  lan«ruage  specifications 
do  not  define  the  results  of  an  arithmetic  operation  without  the  SIZE  ERROR 
phrase,  when  the  result  cannot  be  contained  in  the  resultant-identifier  which 
causes  truncation  of  significant  dibits.  The  results  of  this  teat  reouire  6 
digits  and  the  resultant-identifier  contains  only  5.  For  a further  discus- 
sion, see  X3.27-1968  American  National  Standard  COBOL  pave  2-28,  Section 
6.2.2(1),  The  SIZE  ERROR  clause. 

The  results  for  this  compiler: 

The  result  was  stored  in  the  resultant-identifier  with  the  high  order 
digit  truncated. 

4. 1.1.6.  Abbreviated  Combined  Relation  Conditions  (NC201): 

IF— TEST-110  in  NC201  utilizes  an  abbreviated  combined  relation  condition  to 
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determine  the  direction  the  compiler  will  take  in  a case  where  the  use  of  the 
word  NOT  is  indeed  confusing.  The  languase  specification  states  on  page  2-7'’, 
section  5.2. 1.1  that  when  the  construct  AND  NOT  LESS  THAN  is  used  in  a source 
program,  the  word  NOT  is  to  be  treated  as  a logical  operator.  This  becomes 
relevant  when  taken  in  the  context  of  the  later  abbreviation  of  the  relational 
operator  in  the  statement.  For  example,  A = B AND  NOT  LESS  THAN  C OR  D.  would 
expand  to  the  following:  A = B AND  NOT  A LESS  THAN  C OR  A LESS  THAN  D.  The 
test  in  question  contains  the  followinct:  A GREATER  THAN  E AND  IS  NOT'LESS  THAN 
C OR  D which  strongly  suggests  that  the  word  NOT  in  this  case  is  relational  in 
nature  and  not  logical.  The  concept  of  an  optional  word  (IS)  changing  the 
meaning  of  a statement  is  contrary  to  the  philosophy  of  COBOL  and  as  a result 
this  test  is  presented  as  information  only. 

The  values  for  the  variables  in  the  condition  are  A=5,  B=7,  C=1  and  D=6. 

Using  these  values  in  place  of  the  variables,  the  condition  expands  as  the 
following  if  NOT  is  treated  as  relational: 

((5  GREATER  THAN  7)  AND  (5  NOT  LESS  THAN  1))  OR  (5  NOT  LESS  THAN  6) 

In  this  case  the  condition  is  false. 

If  the  NOT  is  logical,  the  condition  expands  as  the  following: 

((5  GREATER  THAN  7 AND  NOT  (5  LESS  THAN  1))  OR  (5  LESS  THAN  6) 

In  this  case  the  condition  is  true. 

The  results  for  this  compiler: 

The  word  NOT  was  treated  as  a relational  operator. 

H. 1.1.7  The  ACCEPT  Statement  (NC109): 

The  language  specification  docs  not  specify  the  results  of  ACCEPT  when 
the  hardware  is  capable  of  transferring  the  amount  of  data  as  specified 
in  the  receiving  field  and  more  characters  are  entered  for  transfer  on 
the  device  than  were  expected  by  the  receiving  field. 

The  results  of  this  compiler: 

the  rightmost  character (s)  are  truncated  when  the  number  of  characters 
ACCEPTed  from  the  input  device  exceeds  the  size  of  the  receiving  field. 

*1.1.2.  Random  Access  Module  (determined  from  a previous  validation) 

11.1.2.1  Multiple  length  records  (RC102): 

Program  RC102  produces  a file  containing  records  of  multiple  sizes.  The  pur- 
pose of  this  test  is  to  determine  whether  multiple  size  records  are  written  or 
whether  the  maximum  size  record  is  always  written.  As  the  file  is  created, 
records  of  both  length  are  written;  and  as  the  smaller  records  are  built. 
Information  uniquely  identifying  each  record  is  placed  in  the  portion  of  the 
larger  record  that  would  not  logically  be  written  to  the  external  media.  When 
the  file  is  later  retrieved  the  record  area  is  examined  to  determine  whether 
the  extra  portion  beyond  the  end  of  the  smaller  record  is  available  when  each 
of  the  smaller  records  is  read.  The  language  specifiealon  does  not  readily 
suggest  that  the  external  media  will  be  impacted  by  the  size  of  the  logical 
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record  as  defined  in  the  COBOL  program. 

The  results  for  this  compiler  are: 

The  compiler  supports  fixed  length  records. 

*1. 1.2.2  CLOSE  . . . WITH  LOCK  (RC201):  . . 

The  language  specification  indicates  that  the  results  of  closing  a file  with 
lock  is  that  the  file  cannot  be  accessed  again  for  the  duration  of  the  current 
run  unit.  The  results  of  any  attempt  to  access  the  file  are  left  to  the  imple- 
mentor . 

The  results  for  this  compiler  are: 

The  run  unit  terminated  at  the  time  an  access  to  the  file  was 
attempted . 

*1.1.3.  Sequential  Access  Module 

11.1.3.1.  CLOSE  REEL  for  Output  Files  (S0101): 

The  language  specifications  are  not  clear  as  to  the  first  record  written  to  a 
new  reel  after  a CLOSE  REEL  statement  has  been  executed.  In  the  program  S0101, 
a multi-reel  file  is  created  using  the  CLOSE  REEL  statement.  INFO-ON-TEST-E 
reads  the  first  record  of  the  second  reel. 

The  results  for  this  compiler: 

The  first  record  read  on  the  second  reel  was  the  first  record  written 
following  the  CLOSE  REEL. 

**.1.3.2.  Multiple  Length  Records  for  Tape  Files  (S0102): 

The  audit  routine  S0102  creates  a tape  file  with  multiple  length  records.  The 
file  is  then  read  and  the  record  area  examined  to  determine  whether  fixed  length 
records  were  written.  For  a discussion  of  this  operation,  refer  to  4. 1.2.1. 
under  the  discussion  of  Random  Access. 

The  results  for  this  compiler  are: 

The  compiler  appears  to  support  multiple  length  records. 

4. 1.3.3.  Multiple  length  records  for  sequential  mass-storage  files  (S0104): 

The  audit  routine  S0104  creates  a seouential  mass-storage  file  vfith  multiple 
length  records.  The  file  is  then  read  and  the  records  are  examined  to  deter- 
mine whether  fixed  length  records  are  written.  Refer  to  4. 1.2.1  under  the 
discussion  of  multiple  records  for  Random  Access  Files  for  a description  of  a 
similar  test. 

The  results  for  this  compiler  are: 

The  compiler  appears  to  support  fixed  length  records. 

4. 1.3.4.  FILE-LIMITS  Clause 
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The  FILE-LIMITS  clause  need  not  be  used  by  the  oosipller  and/or  operating  system 
to  allocate  file  space.  The  laniruage  specification  allows  an  external  source 
or  function  to  accomplish  some  functions  described  in  the  COPOL  language,  in 
particular,  file  facilities  manadtement  functions. 

The  results  for  this  compiler  are: 

The  FILE-LIMITS  clause  is  treated  as  comments  by  this  compiler  in 
that  file  allocation  is  handled  through  control  cards. 

M.  1.3.5  RERUN  Clause  Option 

The  language  specification  requires  that  the  implementor  must  provide  at 
least  one  of  the  specified  forms  of  the  RERUN  clause. 

The  RERUN  clause  used  for  this  compiler  was: 

RERUN  EVERY  10  RECORDS  OF  file-name- 1. 

4.2.  Other  Information 

4.2.1.  Library  Source  Text 

The  language  specification  is  somewhat  vague  as  to  the  content  of  the  library 
text  prior  to  being  copied.  As  a result  there  are  a multitude  of  techniques 
that  have  been  noted  for  establishing  the  source  text  for  subsequent  use  by  a 
COPY  statement.  This  information  is  provided  in  order  to  understand  the 
technique  used  by  this  system. 

The  results  for  this  compiler  are: 

There  were  no  modifications  required  for  the  library  text. 

4.2.2.  Normal  Print  Positioning  (S021P): 

The  language  specification  does  not  provide  the  default  specifications  for 
the  use  of  the  WRITE  statement  in  relation  to  files  destined  for  a printer 
when  the  ADVANCING  phrase  is  not  specified  by  the  user.  The  purpose  of  this 
test  is  to  observe  the  default  taken  by  the  compiler. 

The  results  for  this  compiler  are: 

This  compiler  assumes  BEFORE  ADVANCING  1 when  no  advancing  phrase  is  used. 
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M.3  Hardware  dependent  features. 

No  standard  hardware  dependent  features  were  restricted  or 
limited  by  this  compiler. 

l|.l|  Transparent  Implementation 

None  were  noted. 


SECTION  5 


SOFTWA  RE  ENVIRONMENT. 


^ The  compiler  referenced  in  this  document  was  validated  usinc^  the  software 

environment  described  in  this  section.  When  usine  a modification  of  the 
described  environment,  the  compiler  may  or  may  not  continue  to  conform  to  the 
standard.  It  should  be  noted  that  durinir  the  validation  process,  an  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options,  implementor-names  in  the  Environment  Division 
and  any  form  of  optimisation  which  is  not  described  in  this  report  could  cause 
the  compiler  to  produce  a proc;ram  that  does  not  perform  according  to  the 
specifications  of  Standard  COBOL.  Only  the  environment  described  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  requirements  of  FIPS 
PUB  21  and  FPMR  101-?2. 1?05. la.  (Any  deviations  which  must  be  corrected  as 
per  the  referenced  FPMR  are  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  statement  for  the  compiler:  I 

The  following  options/parameters  were  used  during  the  validation. 

Options  specified:  INSERT  LH 

Options  defaulted:  None 


2.  Environment  Division  implementor-names. 


If  there  was  an  optimization  feature  available,  it  was  used  during  the 
validation  process  (during  a separate  execution  of  the  Compiler  Validation 
System)  to  determine  if  its  use  causes  the  compiler  to  produce  a program  which 
does  not  give  the  expected  results.  If  the  optimization  is  invoked  through 
the  compiler  call  statement  then  it  is  mentioned  in  paragraph  1 above.  If 
it  is  Invoked  through  the  Introduction  of  syntax  in  other  than  the  Data 
and  Procedure  Divisions  of  the  source  program  it  is  shown  below.  Optimization 
which  would  require  modification  to  the  Data  and  Procedure  Divisions  is  not 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process. 

The  optimization  feature  for  this  compiler  was  not  tested. 
i|.  Compiler. 

OS/2000  ANS  COBOL  Version  U.02 
5.  Operating  system. 
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VALIDATION  SUMMARY  WORKING  DOCUMENT 


A-1  This  appendix  is  a workini?  paper  produced  durine,  the  validation 
and  documents  the  results  of  the  compilation  and  execution  of  each  of  the 
programs  comprising  the  CCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  within  the  Validation  Environment  identified  in 
this  appendix.  This  appendix  (Validation  Summary  Working  Document)  is  not* 
part  of  the  official  Validation  Summary  Report  (VSR)  and  is  not  intended 
to  reflect  in  any  way  the  compiler's  usefulness  or  degree  of  conformance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro- 
blem area  may  appear  in  more  than  one  program,  but  is  considered  only  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

This  appendix  is  divided  into  two  parts.  The  first  part  describes 
the  Validation  Environment.  The  second  part  of  the  document  is  divided  into 
categories  of  information:  compilation  and  execution  results. 

The  reference  document  for  COBOL  is  FIPS  PUB  21  (X3. 23-1968) . 
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VALIDATION  ENVIRONMENT 

COMPILER  IDENTIFICATION;  OS/2000  ANS  COBOL  Version  4.02 

COMPUTER  SYSTEM:  H2051A 

OPERATING  SYSTEM:  OS/2000 

LIBRARY  MODULE  LEVEL  1 
LB101  through  LB107 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

LIBRARY  MODULE  LEVEL  2 
LB201 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

LE202 

A.  Compilation: 

In  C0PY-TEST-17f  attempts  to  replace  datanames  by  qualified 
datanames  or  by  subscribted  datanames  elicited  fatal  syntax  errors. 

B.  Execution: 

COPY-TEST- 17  was  deleted. 

LB20?  through  LE205 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 
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NUCLEUS  MODULE  LEVEL  1 


NC101  through  NC108 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

NC109 

A.  Compilation: 

In  DISP-TEST-12,  a DISPLAY  statement  with  21  subscripted  data-name 
operands  elicited  the  following  fatal  error  message: 

TOO  MANY  DATA  NAMES  IN  THIS  STATEMENT. 

B.  Execution: 

DISP-TEST-12  was  deleted. 

NC1 10  through  NC1 13 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

NUCLEUS  MODULE  LEVEL  2 
NC201 

A.  Compilation: 

In  IF“TEST-119i  the  following  construct: 

IF  2 ♦ 2 r H PERFORM  PASS  GO  TO 
IF— WRITE- 119. 

was  flagged  with  the  following  fatal  error  message: 

IT  IS  ILLEGAL  TO  COMPARE  TWO  LITERALS  WITH  EACH  OTHER. 

X3. 23-1968,  2-2-5.2.1,  does  Indeed  prohibit  comparison  of  two 
literals,  but  places  no  restriction  on  comparison  of  an  arithmetic 
expression  to  a literal  as  above. 

B.  Execution: 

IF— TEST-119  was  deleted.  . 


NC202  through  NC203 

A.  Compilation: 
No  errors. 

B.  Execution: 

No  errors. 

NC20JJ 
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A.  Compilation: 

No  errors. 

B.  Execution: 

DISP-TEST-10  and  DISP-TEST-IH  both  fail  because  the  data  to  be 
DISPLAYED  on  the  CONSOLE  is  truncated  6U  characters.  When  the 
operand  or  composite  of  operands  exceeds  6*1  characters,  DISPLAY 
should  use  the  number  of  lines  necessary  to  exhibit  the  entire 
length.  Only  one  line  of  data  was  actually  DISPLAYed. 

NCPO*;  through  NC210 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

NC2n 

A.  Compilation: 

In  CC-TEST-3*t,  the  following  construct: 

IF  1 ♦ 2 ♦ 3 IS  LESS  THAN  7 OR  HOT  6 
IS  LESS  THAN  1 ♦ 2 + M PERFORM  ... 

was  flagged  with  the  following  fatal  error  message: 

IT  IS  ILLEGAL  TO  COMPARE  TWO  LITERALS  WITH  EACH  OTHER. 

X3. 23-1968,  2-2-5.2.1,  does  indeed  prohibit  comparison  of  two 
literals,  but  places  no  restriction  on  comparison  of  an  arithmetic 
expression  to  a literal  and  vice  versa  as  above. 

B.  Execution: 

CC — TEST-3**  was  deleted. 

NC212 
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A.  Compilation: 

I 

No  errors. 

B.  Execution: 

No  errors. 

RANDOM  ACCESS  MODULE  LEVEL  1 and  LEVEL  2 

Because  the  proper  form  of  the  ACTUAL  KEY  clause  could  not  be  determined, 
this  module  was  not  run. 

SEGMENTATION  MODULE  LEVEL  1 

SG101  through  SGI 03 

A.  Compilation: 


No  errors. 


B.  Execution: 


No  errors. 


SEGMENTATION  MODULE  LEVEL  2 


SG201  through  SG203 
A.  Compilation: 


No  errors. 


B.  Execution: 


No  errors. 


SEQUENTIAL  ACCESS  MODULE  LEVEL  1 

r 

so 101  through  SO 108 
A.  Compilation: 


No  errors. 


B.  Execution: 


No  errors. 


SEQUENTIAL  ACCESS  MODULE  LEVEL  2 
S0201  through  S020*l 
A.  Compilation: 


No  errors. 


2? 
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B.  Execution: 


No'  errors. 


S0205 


A.  Compilation: 

No  errors. 

B.  Execution: 

The  following  tests  failed: 

LABEL-TEST- 14 
LABEL-TEST- 15 
LABEL-TEST- 16 
LABEL-TEST- 18 

These  tests  employ  declarative  procedures  with  the  following  USE 
statements : 

USE  AFTER  BEGINNING  FILE  LABEL  PROCEDURE... 

USE  AFTER  STANDARD  ENDING  LABEL  PROCEDURE... 


S0206  through  S0208 
A.  Compilation: 


No  errors. 


B.  Execution: 


S0209 


No  errors. 


A.  Compilation: 


No  errors. 


B.  Execution: 


CLOSE-TEST-2  and  CLOSE-TEST-?  failed.  Indications  were  that  in  both 
cases,  the  USE-7  SECTION  of  the  declarative  procedures  was  executed 
while  closing  FASS-FILE-B  UNIT.  MASS-FILE-B  had  been  OPENed  for 
INPUT.  X3.2?-1968,  2-7-4. 1.4(2)F  states  that  ending  reel/unit  label 
procedures  are  engaged  for  output  files,  but  omits  that  specification 
for  input  and  input-output  files. 

CLOSE-TEST-5  failed.  Indications  were  that  USE- 10  SECTION  of  the 
declarative  procedures  was  executed  while  closing  DUMMY-I-O-FILE 
which  had  been  OPENed  for  I-O,  but  had  not  been  READ  from. 

X3.23-1968,  2-7-4. 1. 4. (2)C  states  in  part  for  I-O  files: 

"...If  the  file  is  positioned  other  than  at  its  end,  the  closing 
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operations  specified  by  the  implementor  are  executed,  but  there 
is  no  endini?  label  processin*?.  An  innut  file,  or  an  input-output 
file,  is  considered  to  be  at  the  end  of  the  file  if  the  imperative 
statement  in  the  AT  EKD  phrase  of  the  READ  statement  has  been 
executed  and  no  CLOSE  statement  has  been  executed". 


SQ210  . . 

A.  Compilation: 

No  errors. 

B.  Execution: 

WRITE-TEST-1  failed.  This  indicates  that  91  records  were  able  to  be 
written  on  a file  where  the  FILE-LIMITS  ARE  1 THRU  90. 

S0211 

A.  Compilation: 

No  errors. 

P.  Execution: 

USE-TEST-?  failed.  Indications  were  that  ENDING  FILE  LABEL  PROCEDURES 
were  executed  for  SAME-FILE-?  when  an  end-of-file  condition  v:as 
reached,  even  thou<»h  no  CLOSE  statement  had  been  executed  for  the  file. 

S0?1?  through  S0?1? 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

SQ?1U 

A.  Compilation: 


No  errors. 


B. 


Execution: 

Fifteen  of  the  READ-INTO  tests  failed.  These  tests  all  involve 
reading  a file  record  into  an  identifier.  X?.?3-1968,  ?-7-*l .?.  *1.  (*1 ) 
and  (5)  gives  the  basic  rules  for  this  operation.  For  each  test 
which  failed,  the  file  record  and  INTO-identifier  descriptions,  and 
the  actual  and  expected  results  are  given. 

(1)  01-READ-INT0-TEST 

file-record  9(10) 

record-data  1111001111 
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INTO  identifirr 

Actual  results 
Expected  results 

')  02-READ-INT0-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(3)  07-FEAD-IMT0-TEST 

file-record 

record-data 

INTO-identificr 

Actual  results 
Expected  results 

(4)  n-READ-INTO-TEST 

file-record 

record -data 
INTO-identificr 

Actual  results 
Expected  results 

(?)  24-READ-lNTO-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(6)  27-READ-INTO-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(7)  28.READ-INT0-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(8)  29-READ-INTO-TEST 

file-record 

record-data 

INTO-identifier 


9(18) 

1111001 11 Ibbbbbbbb 
000000001111001111 


9(10) 

2222002222 

9(5) 

22220 

02222 


9(10) 

7777007777 

X(18)E0 

7777007777bbbbbbbbbb 

7777007777bbbbbbbbb0 


9(10) 

0000000000 

$99,999,099.99CR  BLANK  WHEN  ZERO. 

OOOOOOOOOObbbbbb 

bbbbbbbbbbbbbbbb 


X(18)  JUST 
000000001234567890 

9(10) 

0000000012 

1234567890 


S9(9)V9  COMP  SYNC 
111111111V9 
9(10) 

1111111119 

0111111111 


S9(9)V9  COMP  SYNC 
222222222v8 

9(10)  COMPUTATIONAL  SYNCHRONIZED 
2222222228 
2222222222 


S9(9)V9  COMP  SYNC 
?33333?33v7 
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Actual  results 
Expected  results 

(9)  30-READ-INTO-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(10)  31-READ-INTO-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(11)  32-READ-INTO-TEST 

fiie-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

( 12)  33-READ-INTO-TEST 

file- record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(13)  3‘<-READ-INT0-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(1M)  35-READ-INTO-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 
Expected  results 

(15)  36-READ-INTO-TEST 

file-record 

record-data 

INTO-identifier 

Actual  results 


3??333?3?Gbbbbbbbbbb 

bbbbbbb*?3?3?3?33.70 


S9(9)V9  COMP  SYNC 

$99,Q99,999.99CR  PLANK  WHEN  ZERO 

mjUUUUniliJObbbbbb 

$H4,HUU,l4HU.60CR 


S9(9)V9  COMP  SYNC 
555555555V5 

i‘99,999,999.99CR  BLANK  WHEN  ZERO 

5555555550bbbbbb 

$55,555,555.50bb 


S9(9)V9  COI-IP  SYNC 
OOOOOOOOOvO 

^99,099,999.90CR  BLANK  WHEN  ZERO 

000000000+bbbbbb 

bbbbbbbbbbbbbbbb 


X(10) 

1020^011050 

9(18) 

1020?0i»050bbbbbbbb 

0000000010203011050 


X(10) 

6070809000 

9(5) 

60708 

09000 


X(10) 

ABCKEFGHIJ 

X(18)P0 

AECKEFGHIJbbbbbbbbbb 

ABCKEFGHIJbbbbbbbbbO 


X(10) 

K/L/M/N/0 

A(5)0 

K/L/M/ 


Expected  results 


K/L/MO 


S0215 

A.  Conpilstlon: 

Lines  0188000  and  018900  in  the  File  Description  for  CONTIN-FILE 
elicited  the  following?  fatal  error  message: 

"LAPEL  RECORDS  ARE  STANDARD"  RECUIRED  ON  MASS-STORAGE  FILES. 

This  error  was  circumvented  by  modifying  the  File  Description  to 
specify  standard  labels. 

B.  Execution: 

LAPEL-TEST-1  failed.  This  test  involves  OPENing  a file  with  user 
defined  label  for  INPUT.  A declarative  procedure  is  used  to  check 
the  label . 

Test  results:  IHDRbbbbbbbbbbbbbbb 

Expected  results:  CAMELbbbbbHORSEbbbbb 

SC216  through  SO? IP 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

SORT  MODULE  LEVEL  1 

ST  101  through  STllH 

A.  Compilation: 

No  errors. 

r 

B.  Execution: 

No  errors. 

SORT  MODULE  LEVEL  ? 

ST201  THROUGH  ST206 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 
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ST207 


\ 


A.  Compilation: 

No  errors. 

B.  Execution: 

(1)  SORT-TEST- 1?  failed.  A 15-character  numeric  sort  record  v;as 
returned  to  an  l8-character  numeric  identifier. 

Test  results:  OOO0O0n0OO9l8l7bbb 

Expected  results:  000000000000091817 

(2)  SORT-TEST- 1*1  failed.  A 15-character  numeric  sort  record  was 
returned  to  a 20-charaoter  numeric-edited  identifier. 

(PIC  $»,«99,999,999,999DE). 

Test  results:  000968678665646bbbbb 

Expected  results:  ^••968,676,665,6^6bb 

(3)  SORT-TEST-16  failed.  A 15-oharacter  alphanumeric  sort  record 
was  returned  to  an  18-character  alphanumeric  edited  identifier 
(PIC  AB9X0X(1?)). 

Test  results:  95?5756555*i53';2bbb 

^ Expected  results:  9b5Pn5756555*<5352b 

(H)  SORT-TEST-17  failed.  A 15-character  alphanumeric  sort  record 
was  returned  to  an  l8-eharacter  num‘'ric  edited  identifier 
(PIC  ♦9(17)  PLANK  WHEN  ZERO). 

Test  results:  92827?6252*l2?2P2bbb 

Expected  results:  ♦0092827262S2i<2’222 

TABLE  HANDLING  MODULE  LEVEL  1 

TH101  through  THIO^I 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

TABLE  HANDLING  MODULE  LEVEL  2 
TH201  through  TH211 

A.  Compilation: 

Ho  errors. 

B.  Execution: 


26 


No  errors. 

* TABLE  HANDLING  LEVEL  3 

• TH301  through  TH’08 

^ A.  Corapilation: 

No  errors. 

B.  Execution: 

No  errors. 

TH309 

A.  Conpilation: 

The  construct: 

SEARCH  TBL-A  VARYING  W AT  END  GO  TO  paragraph-name. 

elicited  the  following  fatal  message; 

ONE  OR  MORE  NAMES  IN  THIS  STATEMENT  HAS  NOT  BEEN  DESCRIBED  AS  DATA. 

TBL-A  had  been  described  as  follows: 

02  TBL-A  OCCURS  10  TIMES  INDEXED  BY  A. 

03  ELMT-A  PIC  99. 

W had  been  described  as  follows: 

01  W USAGE  INDEX. 


{ 


1 

{ 

I 


The  error  was  circumvented  by  changing  the  description  of  W to: 
01  W PICTURE  99. 

B.  Execution:  • 

No  errors. 

TH?10  through  TH?11 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 
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